home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital News 3
/
Digital_News_3_1988_-_de_Side_A.d64
/
irq kurs v3 .src
< prev
next >
Wrap
Text File
|
2022-10-26
|
2KB
|
81 lines
*= $1000
sei
lda #<irq
ldx #>irq
ldy #$81
sta $0314
stx $0315
sty $d01a
lda #0
ldx #$1b
ldy #$2d
sta $dc0e
stx $d011
sty $d012
cli
rts
irq inc $d019
ldx #0
wait ldy tabelle,x
loop dey
bne loop
lda farbe,x
sta $d020
sta $d021
inx
cpx #laenge
bne wait
jsr mov
lda #50
sta $d012
jmp $ea31
farben .byte 0,11,12,15,1,15,12,11,0,0
.byte 0,6,14,3,1,3,14,6,0,0,0
.byte 0,1,2,3,4,5,6,7,8,9,10,11
.byte 10,9,8,7,6,5,0
laenge = 40
tabelle .byte 6,8,8,8,8,8,8,8,1,9
.byte 8,8,8,8,8,8,1,8
.byte 8,8,8,8,8,8,1,8
.byte 8,8,8,8,8,8,1,8
.byte 8,8,8,8,8,8,1,8
.byte 8,8,8,8,8,8,1,8
mov ldx #0
lll lda farben,x
sta farbe,x
inx
cpx #laenge
bne lll
move lda $7000
cmp #$ff
bne mv2
lda #0
sta move+1
jmp move
mv2 ldy #0
tax
mv3 lda colnew,y
sta farbe,x
inx
iny
cpy #8
bne mv3
inc move+1
rts
colnew .byte 0,11,12,15,1,15,12,11,0
farbe .byte 0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0
.byte 0,0,0,0,0,0,0,0,0,0